home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / intern2a / form1.frm next >
Text File  |  1999-10-09  |  10KB  |  301 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Internet Costs Controler"
  5.    ClientHeight    =   1155
  6.    ClientLeft      =   45
  7.    ClientTop       =   345
  8.    ClientWidth     =   4695
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   1155
  13.    ScaleWidth      =   4695
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton cmdAbout 
  16.       Cancel          =   -1  'True
  17.       Caption         =   "&About"
  18.       Height          =   375
  19.       Left            =   3120
  20.       TabIndex        =   3
  21.       Top             =   720
  22.       Width           =   1335
  23.    End
  24.    Begin VB.Frame Options 
  25.       BorderStyle     =   0  'None
  26.       Enabled         =   0   'False
  27.       Height          =   1455
  28.       Left            =   840
  29.       TabIndex        =   4
  30.       Top             =   1260
  31.       Width           =   3015
  32.       Begin VB.CommandButton cmdReset 
  33.          Caption         =   "&Reset Options"
  34.          Height          =   375
  35.          Left            =   1560
  36.          TabIndex        =   13
  37.          Top             =   960
  38.          Width           =   1335
  39.       End
  40.       Begin VB.CommandButton cmdSave 
  41.          Caption         =   "&Save Options"
  42.          Height          =   375
  43.          Left            =   120
  44.          TabIndex        =   12
  45.          Top             =   960
  46.          Width           =   1335
  47.       End
  48.       Begin VB.TextBox Text1 
  49.          Alignment       =   1  'Right Justify
  50.          Height          =   285
  51.          Left            =   1200
  52.          TabIndex        =   11
  53.          Top             =   540
  54.          Width           =   1695
  55.       End
  56.       Begin VB.ComboBox Combo2 
  57.          Height          =   315
  58.          ItemData        =   "Form1.frx":0442
  59.          Left            =   2160
  60.          List            =   "Form1.frx":04FA
  61.          Style           =   2  'Dropdown List
  62.          TabIndex        =   8
  63.          Top             =   120
  64.          Width           =   615
  65.       End
  66.       Begin VB.ComboBox Combo1 
  67.          Height          =   315
  68.          ItemData        =   "Form1.frx":05E4
  69.          Left            =   1200
  70.          List            =   "Form1.frx":0606
  71.          Style           =   2  'Dropdown List
  72.          TabIndex        =   6
  73.          Top             =   120
  74.          Width           =   615
  75.       End
  76.       Begin VB.Label Label4 
  77.          AutoSize        =   -1  'True
  78.          Caption         =   "I&mpulse Cost:"
  79.          Height          =   195
  80.          Left            =   120
  81.          TabIndex        =   10
  82.          Top             =   540
  83.          Width           =   945
  84.       End
  85.       Begin VB.Label Label3 
  86.          AutoSize        =   -1  'True
  87.          Caption         =   "s"
  88.          Height          =   195
  89.          Left            =   2880
  90.          TabIndex        =   9
  91.          Top             =   180
  92.          Width           =   75
  93.       End
  94.       Begin VB.Label Label2 
  95.          AutoSize        =   -1  'True
  96.          Caption         =   "m"
  97.          Height          =   195
  98.          Left            =   1920
  99.          TabIndex        =   7
  100.          Top             =   180
  101.          Width           =   120
  102.       End
  103.       Begin VB.Label Label1 
  104.          AutoSize        =   -1  'True
  105.          Caption         =   "Impulse &Time:"
  106.          Height          =   195
  107.          Left            =   120
  108.          TabIndex        =   5
  109.          Top             =   180
  110.          Width           =   975
  111.       End
  112.    End
  113.    Begin VB.CommandButton cmdClose 
  114.       Caption         =   "&Close"
  115.       Height          =   375
  116.       Left            =   1680
  117.       TabIndex        =   2
  118.       Top             =   720
  119.       Width           =   1335
  120.    End
  121.    Begin VB.CommandButton cmdOptions 
  122.       Caption         =   "&Options >>"
  123.       Height          =   375
  124.       Left            =   240
  125.       TabIndex        =   1
  126.       Top             =   720
  127.       Width           =   1335
  128.    End
  129.    Begin VB.Timer Timer1 
  130.       Interval        =   1000
  131.       Left            =   4080
  132.       Top             =   120
  133.    End
  134.    Begin VB.Shape ProgressBar 
  135.       DrawMode        =   6  'Mask Pen Not
  136.       FillStyle       =   0  'Solid
  137.       Height          =   255
  138.       Left            =   120
  139.       Top             =   720
  140.       Width           =   2655
  141.    End
  142.    Begin VB.Shape Shape1 
  143.       Height          =   375
  144.       Left            =   1320
  145.       Top             =   720
  146.       Width           =   3255
  147.    End
  148.    Begin VB.Label Status 
  149.       Alignment       =   2  'Center
  150.       Caption         =   "You are currently Offline."
  151.       Height          =   255
  152.       Left            =   120
  153.       TabIndex        =   14
  154.       Top             =   360
  155.       Width           =   4455
  156.    End
  157.    Begin VB.Line Line1 
  158.       BorderColor     =   &H80000014&
  159.       BorderWidth     =   2
  160.       X1              =   120
  161.       X2              =   4560
  162.       Y1              =   1200
  163.       Y2              =   1200
  164.    End
  165.    Begin VB.Label Timed 
  166.       Alignment       =   2  'Center
  167.       Caption         =   "You are currently Offline."
  168.       Height          =   255
  169.       Left            =   120
  170.       TabIndex        =   0
  171.       Top             =   120
  172.       Width           =   4455
  173.    End
  174. End
  175. Attribute VB_Name = "Form1"
  176. Attribute VB_GlobalNameSpace = False
  177. Attribute VB_Creatable = False
  178. Attribute VB_PredeclaredId = True
  179. Attribute VB_Exposed = False
  180. 'General variable declaration
  181. 'ITime = impulse time
  182. 'ICost = impulse cost
  183. 'NetStart = time when you connected
  184. 'NetCount = total connection impulses
  185. 'NetCost = total connection cost
  186. Private ITime As Integer, ICost As Single
  187. Private NetStart As Long, NetCount As Integer, NetCost As Long
  188. Private OnLine As Boolean
  189.  
  190. Private Sub cmdAbout_Click()
  191. 'Generate a standard About Message Box
  192.     MsgBox "Programmed by Pedro Lamas" & vbCrLf & "Copyright ⌐1997-1999 Underground Software" & vbCrLf & vbCrLf & "Home-Page (Dedicated to VB): www.terravista.pt/portosanto/3723/" & vbCrLf & "E-Mail: sniper@hotpop.com", vbApplicationModal + vbInformation, "Credits!"
  193. End Sub
  194.  
  195. Private Sub cmdClose_Click()
  196. 'End the program
  197.     End
  198. End Sub
  199.  
  200. Private Sub cmdOptions_Click()
  201.     If cmdOptions.Caption = "&Options >>" Then
  202. 'Show the Options Panel
  203.         ResetOptions
  204.         cmdOptions.Caption = "&Options <<"
  205.         Me.Height = 3045
  206.         Options.Enabled = True
  207. 'Disable the timer
  208.         Timer1.Enabled = False
  209.     Else
  210. 'Hide the Options Panel
  211.         cmdOptions.Caption = "&Options >>"
  212.         Me.Height = 1545
  213.         Options.Enabled = False
  214. 'Enable the timer
  215.         Timer1.Enabled = True
  216.     End If
  217. End Sub
  218.  
  219. Private Sub cmdReset_Click()
  220. 'Reset the options, by reloading the settings
  221.     ResetOptions
  222. End Sub
  223.  
  224. Private Sub cmdSave_Click()
  225. 'Update the options variables
  226.     ITime = Combo1 * 60 + Combo2
  227.     ICost = CSng(Text1)
  228. 'Save the options on the Windows Registry
  229.     SaveSetting "Internet Costs Control", "ops", "ITime", ITime
  230.     SaveSetting "Internet Costs Control", "ops", "ICost", ICost
  231. End Sub
  232.  
  233. Private Sub Form_Load()
  234. 'Set the options, by loading the setings
  235.     ResetOptions
  236. 'Align the Impulse Progress Bar
  237.     Shape1.Move Timed.Left, Timed.Top, Timed.Width, Timed.Height + Status.Height
  238.     ProgressBar.Move Timed.Left + 30, Timed.Top + 30, 0, Timed.Height + Status.Height - 60
  239.     ProgressBar.Tag = Timed.Width - 60
  240. End Sub
  241.  
  242. Private Sub Timer1_Timer()
  243.     On Error Resume Next
  244.     Dim Ret As Long, PassedTime As Long
  245.     
  246. 'Check if you are connected
  247.     If IsRASConnected Then
  248. 'Get the time you have been connected
  249.         PassedTime = Timer - NetStart
  250.         If OnLine Then
  251. 'If you were already connected,
  252.             Timed = "OnLine for " & TimeSerial(0, 0, PassedTime)
  253.             If Int(PassedTime / ITime + 1) > NetCount Then
  254. 'Update the Costs Panel
  255.                 NetCount = Int(PassedTime / ITime + 1)
  256.                 NetCost = NetCount * ICost
  257.                 Status = "You've